home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib08.dsk / SPEED SORT DEMO #1.bas < prev    next >
BASIC Source File  |  2023-02-26  |  353b  |  15 lines
  1. 10  REM  ONE DIMENSION
  2. 20  DATA  ONE,TWO,THREE,FOUR,FIVE
  3. 30  DATA  SIX,SEVEN,EIGHT,NINE,TEN
  4. 40  DIM A$(9)
  5. 50  FOR I = 0 TO 9
  6. 60  READ A$(I)
  7. 70  NEXT 
  8. 80 I = I -1
  9. 90  DIM S%(I)
  10. 100  POKE 964,(I/256 - INT(I/256)) *256
  11. 110  POKE 965, INT(I/256)
  12. 120  CALL  PEEK(175) + PEEK(176) *256 -261A$(0),S%(0)
  13. 130  FOR J = 0 TO I
  14. 140  PRINT A$(J),A$(S%(J))
  15. 150  NEXT